# -*- mode: snippet -*-
# name: shiny module (old)
# key: shiny.module.old
# key: shiny_module.old
# contributor: Shuguang Sun
# --
## shiny < 1.50
${1:name}ui <- function(id) {
    ns <- NS(id)
    tagList(

        )
    }

${1:name} <- function(input, output, session) {
    ns <- session\$ns
}

## Copy in UI
${1:name}ui("${1:name}ui")

## Copy in server
callModule(${1:name}, "${1:name}ui")